
# set working directory
setwd(paste0(wd))
#install.packages ("pacman") 
pacman::p_load(haven, tidyverse, sjPlot)



if (startsWith(wd, "G:/Meine Ablage/Lytkina&Speer - Relative Deprivation/Analyses/apps")) {
# Anne
  
fgzvor <- read_dta(paste0(path_input,"/fgzvor/Vorabdaten_FGZ_ESS8.dta"))

fgzw1p <- read_dta(paste0(path_input,"/fgzw1/scp_p_W1long_en.dta"))
fgzw1h <- read_dta(paste0(path_input,"/fgzw1/scp_h_W1long_en.dta"))
hgen <- read_dta(paste0(path_input,"/fgzw1/scp_hgen_W1long_en.dta"))
pgen <- read_dta(paste0(path_input,"/fgzw1/scp_pgen_W1long_en.dta"))
hhrf <- read_dta(paste0(path_input,"/fgzw1/scp_hhrf_W1long_en.dta"))
phrf <- read_dta(paste0(path_input,"/fgzw1/scp_phrf_W1long_en.dta"))

fgzw2p <- read_dta(paste0(path_input,"/fgzw2/scp_p_W2_raw.dta"))
fgzw2h <- read_dta(paste0(path_input,"/fgzw2/scp_h_W2_raw.dta"))
fgzw2phrf <- read_dta(paste0(path_input,"/fgzw2/scp_phrf_W2_raw.dta"))
fgzw2hhrf <- read_dta(paste0(path_input,"/fgzw2/scp_hhrf_W2_raw.dta"))

fgzw3p <- read_dta(paste0(path_input,"/fgzw3/scp_p_W3_raw.dta"))

} else if(startsWith(wd, "G:/.shortcut-targets-by-id/1tsH4BMF1SXIB3cbNY5ugCnIAOZiR_2Me/Lytkina&Speer - Relative Deprivation/Analyses/apps")) { 
# Ekaterina

  fgzvor <- read_dta(paste0(path_input,"/SUF_FGZPilotstudie2020_Feb22/SUF_FGZPilotstudie2020_Feb22/FGZ Pilotstudie 2020 Betaversion.dta"))
  
  fgzw1p <- read_dta(paste0(path_input,"/SCP_W1_beta_v02/SCP_W1_beta_v02/Data/Stata/English/scp_p_W1long_en.dta"))
  fgzw1h <- read_dta(paste0(path_input,"/SCP_W1_beta_v02/SCP_W1_beta_v02/Data/Stata/English/scp_h_W1long_en.dta"))
  hgen <- read_dta(paste0(path_input,"/SCP_W1_beta_v02/SCP_W1_beta_v02/Data/Stata/English/scp_hgen_W1long_en.dta"))
  pgen <- read_dta(paste0(path_input,"/SCP_W1_beta_v02/SCP_W1_beta_v02/Data/Stata/English/scp_pgen_W1long_en.dta"))
  hhrf <- read_dta(paste0(path_input,"/SCP_W1_beta_v02/SCP_W1_beta_v02/Data/Stata/English/scp_hhrf_W1long_en.dta"))
  phrf <- read_dta(paste0(path_input,"/SCP_W1_beta_v02/SCP_W1_beta_v02/Data/Stata/English/scp_phrf_W1long_en.dta"))
  
  fgzw2p <- read_dta(paste0(path_input,"/SCP_W2_raw/SCP_W2_raw/STATA/scp_p_W2_raw.dta"))
  fgzw2h <- read_dta(paste0(path_input,"/SCP_W2_raw/SCP_W2_raw/STATA/scp_h_W2_raw.dta"))
  fgzw2phrf <- read_dta(paste0(path_input,"/SCP_W2_raw/SCP_W2_raw/STATA/scp_phrf_W2_raw.dta"))
  fgzw2hhrf <- read_dta(paste0(path_input,"/SCP_W2_raw/SCP_W2_raw/STATA/scp_hhrf_W2_raw.dta"))
  
  fgzw3p <- read_dta(paste0(path_input,"/SCP_W3_raw/STATA/scp_p_W3_raw.dta"))
  
  } 
# ggplot2::theme_set(theme_sjplot())




